R:Realizer, y, i:Id. read-restricted(R; i; y)  R-occurs(R;i;y) 

latex

Definitions

Id, t  T, s = t, Prop, x:AB(x), P & Q, P  Q, x:A. B(x), a = b, b, Type, p  q, x:AB(x), x.A(x), P  Q, {T}, x. t(x), P  Q, es realizer ind Rrframe compseq tag def, R-occurs(R;i;z), read-restricted(R; i; y), False, es realizer ind Rbframe compseq tag def, IdDeq, (x  l), deq-member(eq;x;L), es realizer ind Raframe compseq tag def, a:A fp B(a), Top, x  dom(f), es realizer ind Rpre compseq tag def, source(l), es realizer ind Rsends compseq tag def, left+right, P  Q, p  q, es realizer ind Reffect compseq tag def, es realizer ind Rsframe compseq tag def, es realizer ind Rframe compseq tag def, es realizer ind Rinit compseq tag def, es realizer ind Rplus compseq tag def, es realizer ind Rnone compseq tag def, Unit, Knd, type List, IdLnk, State(ds), DeclaredType(ds;x), rec(x.A(x)), Realizer

Lemmas

es realizer wf, unit wf, decl-type wf, fpf wf, decl-state wf, IdLnk wf, Knd wf, R-occurs wf, read-restricted wf, assert of bor, or functionality wrt iff, bor wf, lsrc wf, fpf-dom wf, fpf-trivial-subtype-top, assert-deq-member, deq-member wf, l member wf, id-deq wf, false wf, all functionality wrt iff, implies functionality wrt iff, iff transitivity, assert of band, and functionality wrt iff, assert-eq-id, band wf, assert wf, eq id wf, Id wf